report:
	proc;
	%replace
		true  by '1'b,
		false by '0'b;
	%include 'attrib.dcl';
	dcl
		rec char(max_siz),
		rec_no fixed;
	dcl
		data  file,
		sysin file;
	dcl
		display entry(char(max_siz));

	on undefinedfile(data)
		begin;
		put skip list('No Data Base, Use Create(c)');
		go to end_report;
		end;

	on endfile(data)
		go to end_report;

	open file(data) record;

		do rec_no = 0 repeat(rec_no+1);
		read file(data) into (rec);
		put edit('Record',Rec_no,'') (skip,a,f(4));
		call display(rec);
		end;

	end_report:
	close file(data);
	put skip(2) list('End of Report');
	end report;
